var x,fact
readint "Input: "
pop x
push 0
push x
cmplt
jz Lable
push 1
pop fact
Lable1:
push fact
push x
mul
pop fact
push x
push 1
sub
pop x
push x
push 0
cmpeq
jz Lable1
print "out is %d"
Lable:
